Option Explicit
Sub D_Sample008()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCell As Range
    Set myRng1 = Range("A1:A4")				'ƻsӷxsd
    Set myRng2 = Range("B1")       				'ƻsؼxs
    With myRng1
        Set myRng2 = myRng2.Resize( _
        RowSize:=.Rows.Count, _
        ColumnSize:=.Columns.Count)
        'ǳƨ즹
        For Each myCell In .Cells
            With myCell
                myRng2.Range(.Address).Value _
                = .PrefixCharacter & .Formula
            End With
        Next
    End With
    Set myRng1 = Nothing				'
    Set myRng2 = Nothing
    Set myCell = Nothing
End Sub
